home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #051 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #051 (1990)(Amiga User Group Deutschland e.V.).adf / ElektrischeSchaltungen / Wechselschaltung (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  5KB  |  262 lines
  1.  
  2.  
  3.       
  4.         
  5.         
  6.         SCREEN 2,320,200,3,1
  7.   anfang:
  8.         WINDOW 2," Wechselschaltung ",(0,0)-(297,186),15,2   
  9.  
  10.         PALETTE 0,0.1,0,0.33     
  11.         PALETTE 1,0.3,0.8,0.1     
  12.         PALETTE 2,0.4,0.2,0.9 
  13.         PALETTE 3,1,1,0.13     
  14.         PALETTE 4,1,0.87,0.73   
  15.         PALETTE 5,0.8,0.6,0.53   
  16.         PALETTE 6,0.83,0.2,0   
  17.         PALETTE 7,0.4,0.6,0.9
  18.         COLOR 6,2
  19.     
  20.         LOCATE 1,17 : PRINT "N"
  21.         LOCATE 2,19 : PRINT "L1"
  22.         LOCATE 1,21 : PRINT "PE"
  23.         LOCATE 20,13 : PRINT"Linke Maustaste"
  24.         LOCATE 22,8 : PRINT "S1"
  25.         LOCATE 22,31 : PRINT "S2"
  26.         
  27.         CIRCLE (150,30),28,1,,,1  
  28.         CIRCLE (150,90),18,1,,,1  
  29.         CIRCLE (25,150),20,3,,,1  
  30.         CIRCLE (280,150),20,3,,,1 
  31.         CIRCLE (12,150),1.5,3     
  32.         CIRCLE (267,150),1.5,3    
  33.         CIRCLE (35,142),1.5,3     
  34.         CIRCLE (35,158),1.5,3     
  35.         CIRCLE (290,142),1.5,3    
  36.         CIRCLE (290,158),1.5,3    
  37.         CIRCLE (137,90),1.5,3     
  38.         CIRCLE (162,90),1.5,3     
  39.         CIRCLE (137,18),1.5,3     
  40.         CIRCLE (150,30),1.5,3     
  41.         CIRCLE (150,50),1.5,3     
  42.         CIRCLE (150,70),1.5,3     
  43.         LINE (137,0)-(137,90),7   
  44.         LINE (150,0)-(150,30),4   
  45.         LINE (12,30)-(150,30),4   
  46.         LINE (12,30)-(12,150),4   
  47.         LINE (162,45)-(162,90),4  
  48.         LINE (162,45)-(267,45),4  
  49.         LINE (267,45)-(267,150),4 
  50.         LINE (35,35)-(35,142),2   
  51.         LINE (35,35)-(290,35),2   
  52.         LINE (290,35)-(290,142),2 
  53.         LINE (290,158)-(302,158),2
  54.         LINE (35,158)-(50,158),2  
  55.         LINE (50,158)-(50,40),2   
  56.         LINE (50,40)-(302,40),2   
  57.         LINE (302,40)-(302,158),2 
  58.         LINE (267,150)-(290,142),6  
  59.         LINE (12,150)-(35,158),6    
  60.         LINE (150,50)-(150,70),3    
  61.         LINE (150,50)-(160,50),3    
  62.         LINE (160,0)-(160,50),3     
  63.         LINE (137,90)-(142,80),6    
  64.         LINE (142,80)-(146,97),6  
  65.         LINE (146,97)-(150,80),6    
  66.         LINE (150,80)-(154,97),6
  67.         LINE (154,97)-(158,80),6
  68.         LINE (158,80)-(162,90),6
  69.         
  70.         
  71.         ON MOUSE GOSUB start         
  72.         MOUSE ON                    
  73.         WHILE INKEY$="" : WEND  
  74.     start:
  75.      
  76.       LINE   (12,150)-(35,142),6    
  77.      
  78.     aus:
  79.       LINE (12,150)-(35,158),0    
  80.                    
  81.         FOR i=0 TO 30 STEP 0.2     
  82.         PSET (150,i),6
  83.         NEXT i
  84.                                   
  85.         FOR i=-0 TO 138  STEP 0.2     
  86.         PSET (150-i,30),6               
  87.         NEXT i
  88.         
  89.         FOR i=30 TO 150 STEP 0.2      
  90.         PSET (12,i),6  
  91.         NEXT i
  92.         
  93.         FOR i=-0 TO 107 STEP 0.2      
  94.         PSET (35,142-i),6
  95.         NEXT i
  96.         
  97.         FOR i=35 TO 290 STEP 0.2      
  98.         PSET (i,35),6
  99.         NEXT i
  100.         
  101.         FOR i=35 TO 142 STEP 0.2      
  102.         PSET (290,i),6
  103.         NEXT i
  104.         
  105.         FOR i=-0 TO 105 STEP 0.2      
  106.         PSET (267,150-i),6
  107.         NEXT i
  108.        
  109.        FOR i=-0 TO 105 STEP 0.2       
  110.        PSET (267-i,45),6
  111.        NEXT i
  112.        
  113.        FOR i=45 TO 90 STEP 0.2        
  114.        PSET (162,i),6
  115.        NEXT i
  116.         
  117.         IF i<>240 THEN GOSUB an 
  118.     an:
  119.         a=3   
  120.         CIRCLE (150,90),18,a,,,1       
  121.         PAINT  (150,90),a
  122.        
  123.        IF a=3 THEN GOSUB auss
  124.        IF i=45 THEN GOSUB weiter
  125.        
  126.     auss:
  127.          CIRCLE (150,90),18,1,,,1
  128.          PAINT (150,90),0
  129.     weiter:
  130.         
  131.         
  132.         
  133.         LOCATE 1,17 : PRINT "N"
  134.         LOCATE 2,19 : PRINT "L1"
  135.         LOCATE 1,21 : PRINT "PE"
  136.         LOCATE 20,13: PRINT"Linke Maustaste"
  137.         
  138.         LINE   (12,150)-(35,142),0
  139.         CIRCLE (150,30),28,1,,,1  
  140.         CIRCLE (150,90),18,1,,,1  
  141.         CIRCLE (25,150),20,3,,,1  
  142.         CIRCLE (280,150),20,3,,,1 
  143.         CIRCLE (12,150),1.5,3     
  144.         CIRCLE (267,150),1.5,3    
  145.         CIRCLE (35,142),1.5,3     
  146.         CIRCLE (35,158),1.5,3     
  147.         CIRCLE (290,142),1.5,3    
  148.         CIRCLE (290,158),1.5,3    
  149.         CIRCLE (137,90),1.5,3     
  150.         CIRCLE (162,90),1.5,3     
  151.         CIRCLE (137,18),1.5,3     
  152.         CIRCLE (150,30),1.5,3     
  153.         CIRCLE (150,50),1.5,3     
  154.         CIRCLE (150,70),1.5,3     
  155.         LINE (137,0)-(137,90),7   
  156.         LINE (150,0)-(150,30),4   
  157.         LINE (12,30)-(150,30),4   
  158.         LINE (12,30)-(12,150),4   
  159.         LINE (162,45)-(162,90),4  
  160.         LINE (162,45)-(267,45),4  
  161.         LINE (267,45)-(267,150),4 
  162.         LINE (35,35)-(35,142),2   
  163.         LINE (35,35)-(290,35),2   
  164.         LINE (290,35)-(290,142),2 
  165.         LINE (290,158)-(302,158),2
  166.         LINE (35,158)-(50,158),2  
  167.         LINE (50,158)-(50,40),2   
  168.         LINE (50,40)-(302,40),2   
  169.         LINE (302,40)-(302,158),2 
  170.         LINE (267,150)-(290,142),6
  171.         LINE (12,150)-(35,158),6  
  172.         LINE (150,50)-(150,70),3  
  173.         LINE (150,50)-(160,50),3  
  174.         LINE (160,0)-(160,50),3   
  175.         LINE (137,90)-(142,80),6  
  176.         LINE (142,80)-(146,97),6  
  177.         LINE (146,97)-(150,80),6    
  178.         LINE (150,80)-(154,97),6
  179.         LINE (154,97)-(158,80),6
  180.         LINE (158,80)-(162,90),6
  181.  
  182.         
  183.         ON MOUSE GOSUB startd        
  184.         MOUSE ON                    
  185.         WHILE INKEY$="" : WEND  
  186.  
  187.      startd:
  188.      
  189.       LINE   (267,150)-(290,158),6 
  190.      
  191.    
  192.       LINE (267,150)-(290,142),0    
  193.                    
  194.         FOR i=0 TO 30 STEP 0.2       
  195.         PSET (150,i),6
  196.         NEXT i
  197.                                   
  198.         FOR i=-0 TO 138  STEP 0.2    
  199.         PSET (150-i,30),6               
  200.         NEXT i
  201.         
  202.         FOR i=30 TO 150 STEP 0.2     
  203.         PSET (12,i),6  
  204.         NEXT i
  205.      '**************************************************************
  206.         FOR i=35 TO 50 STEP 0.2      
  207.         PSET (i,158),6
  208.         NEXT i
  209.         
  210.         FOR i=-0 TO 117 STEP 0.2     
  211.         PSET (50,158-i),6
  212.         NEXT i
  213.         
  214.         FOR i=50 TO 302 STEP 0.2     
  215.         PSET (i,40),6
  216.         NEXT i                        
  217.         
  218.         FOR i=40 TO 158 STEP 0.2     
  219.         PSET (302,i),6
  220.         NEXT i
  221.         
  222.         FOR i=-0 TO 12 STEP 0.2
  223.         PSET (302-i,158),6
  224.         NEXT i
  225.         
  226.     '*******************************************************    
  227.         FOR i=-0 TO 105 STEP 0.2     
  228.         PSET (267,150-i),6
  229.         NEXT i
  230.        
  231.        FOR i=-0 TO 105 STEP 0.2      
  232.        PSET (267-i,45),6
  233.        NEXT i
  234.        
  235.        FOR i=45 TO 90 STEP 0.2       
  236.        PSET (162,i),6
  237.        NEXT i
  238.         
  239.         IF i<>240 THEN GOSUB ana 
  240.     ana:
  241.         a=3   
  242.         CIRCLE (150,90),18,a,,,1    
  243.         PAINT  (150,90),a
  244.        
  245.        IF a=3 THEN GOSUB ause
  246.        IF i=45 THEN GOSUB weiterr
  247.        
  248.     ause:
  249.          CIRCLE (150,90),18,1,,,1
  250.          PAINT (150,90),0
  251.     weiterr:
  252.         GOSUB anfang
  253.         
  254.         
  255.         
  256.        
  257.  
  258.        
  259.         
  260.         
  261.         
  262.